home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / PetWings / petwings.exe / PetWings.exe / RCDATA / 248 < prev    next >
Encoding:
Text File  |  1999-08-04  |  635 b   |  71 lines
  1. STOP 20
  2. PLAY_SOUND 10
  3. STOP 20
  4. PLAY_SOUND 10
  5. STOP 20
  6. PLAY_SOUND 10
  7. STOP 20
  8. STOP 20
  9.  
  10. // Going down
  11. DIRECTION 24
  12. SPEED 2
  13. MOVE 115
  14.  
  15. // Wait for Balls
  16. STOP 64
  17.  
  18. LABEL 1
  19.  
  20. // 384 steps
  21. GOSUB 2
  22.  
  23. // 384 steps
  24. GOSUB 2
  25.  
  26. STOP 200
  27.  
  28. // 384 steps
  29. GOSUB 3
  30.  
  31. // 384 steps
  32. GOSUB 3
  33.  
  34. STOP 200
  35.  
  36. GOTO_LABEL 1
  37.  
  38. //---------- Rotation Left
  39. LABEL 2
  40.  
  41. DIRECTION 16
  42. SPEED 2
  43. MOVE 6
  44.  
  45. REPEAT 31
  46. ROTATE_LEFT 1
  47. MOVE 12
  48. REPEAT_END
  49.  
  50. ROTATE_LEFT 1
  51. MOVE 6
  52.  
  53. RETURN
  54.  
  55. //---------- Rotation Right
  56. LABEL 3
  57.  
  58. DIRECTION 0
  59. SPEED 2
  60. MOVE 6
  61.  
  62. REPEAT 31
  63. ROTATE_RIGHT 1
  64. MOVE 12
  65. REPEAT_END
  66.  
  67. ROTATE_RIGHT 1
  68. MOVE 6
  69.  
  70. RETURN
  71.